home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / autose1g / frmnewga.frm (.txt) < prev    next >
Visual Basic Form  |  1999-06-24  |  34KB  |  1,114 lines
  1. VERSION 5.00
  2. Begin VB.Form frmNewGame 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "                                    Setup A New Game"
  7.    ClientHeight    =   5655
  8.    ClientLeft      =   45
  9.    ClientTop       =   930
  10.    ClientWidth     =   9465
  11.    ControlBox      =   0   'False
  12.    Icon            =   "FRMNEWGA.frx":0000
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    PaletteMode     =   1  'UseZOrder
  16.    ScaleHeight     =   5655
  17.    ScaleWidth      =   9465
  18.    ShowInTaskbar   =   0   'False
  19.    Begin VB.CommandButton cmdExit 
  20.       Caption         =   "E&xit Game"
  21.       Height          =   330
  22.       Left            =   4455
  23.       TabIndex        =   22
  24.       Top             =   5040
  25.       Width           =   1200
  26.    End
  27.    Begin VB.PictureBox picChooseSector 
  28.       BackColor       =   &H00000000&
  29.       Height          =   1335
  30.       Left            =   5595
  31.       ScaleHeight     =   1275
  32.       ScaleWidth      =   1515
  33.       TabIndex        =   6
  34.       Top             =   2655
  35.       Width           =   1575
  36.       Begin VB.CommandButton cmdChoice 
  37.          Caption         =   "X"
  38.          BeginProperty Font 
  39.             Name            =   "MS Sans Serif"
  40.             Size            =   8.25
  41.             Charset         =   0
  42.             Weight          =   700
  43.             Underline       =   0   'False
  44.             Italic          =   0   'False
  45.             Strikethrough   =   0   'False
  46.          EndProperty
  47.          Height          =   315
  48.          Index           =   3
  49.          Left            =   1200
  50.          TabIndex        =   10
  51.          Top             =   960
  52.          Width           =   315
  53.       End
  54.       Begin VB.CommandButton cmdChoice 
  55.          Caption         =   "X"
  56.          BeginProperty Font 
  57.             Name            =   "MS Sans Serif"
  58.             Size            =   8.25
  59.             Charset         =   0
  60.             Weight          =   700
  61.             Underline       =   0   'False
  62.             Italic          =   0   'False
  63.             Strikethrough   =   0   'False
  64.          EndProperty
  65.          Height          =   315
  66.          Index           =   2
  67.          Left            =   0
  68.          TabIndex        =   9
  69.          Top             =   960
  70.          Width           =   315
  71.       End
  72.       Begin VB.CommandButton cmdChoice 
  73.          Caption         =   "X"
  74.          BeginProperty Font 
  75.             Name            =   "MS Sans Serif"
  76.             Size            =   8.25
  77.             Charset         =   0
  78.             Weight          =   700
  79.             Underline       =   0   'False
  80.             Italic          =   0   'False
  81.             Strikethrough   =   0   'False
  82.          EndProperty
  83.          Height          =   315
  84.          Index           =   1
  85.          Left            =   1200
  86.          TabIndex        =   8
  87.          Top             =   0
  88.          Width           =   315
  89.       End
  90.       Begin VB.CommandButton cmdChoice 
  91.          Caption         =   "X"
  92.          BeginProperty Font 
  93.             Name            =   "MS Sans Serif"
  94.             Size            =   8.25
  95.             Charset         =   0
  96.             Weight          =   700
  97.             Underline       =   0   'False
  98.             Italic          =   0   'False
  99.             Strikethrough   =   0   'False
  100.          EndProperty
  101.          Height          =   315
  102.          Index           =   0
  103.          Left            =   0
  104.          TabIndex        =   7
  105.          Top             =   0
  106.          Width           =   315
  107.       End
  108.    End
  109.    Begin VB.Frame fraSelect 
  110.       BackColor       =   &H00000000&
  111.       Caption         =   "Choose Home Planet"
  112.       BeginProperty Font 
  113.          Name            =   "MS Sans Serif"
  114.          Size            =   9.75
  115.          Charset         =   0
  116.          Weight          =   700
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       ForeColor       =   &H0000FFFF&
  122.       Height          =   1800
  123.       Left            =   2685
  124.       TabIndex        =   12
  125.       Top             =   2340
  126.       Width           =   4725
  127.       Begin VB.TextBox txtNamePlanet 
  128.          BackColor       =   &H00000000&
  129.          BeginProperty Font 
  130.             Name            =   "MS Sans Serif"
  131.             Size            =   8.25
  132.             Charset         =   0
  133.             Weight          =   700
  134.             Underline       =   0   'False
  135.             Italic          =   0   'False
  136.             Strikethrough   =   0   'False
  137.          EndProperty
  138.          ForeColor       =   &H0000FF00&
  139.          Height          =   330
  140.          Left            =   540
  141.          TabIndex        =   21
  142.          Top             =   1245
  143.          Width           =   1575
  144.       End
  145.       Begin VB.Label lblPlanetName 
  146.          Appearance      =   0  'Flat
  147.          BackColor       =   &H000000C0&
  148.          BackStyle       =   0  'Transparent
  149.          Caption         =   "Name Your Home Planet:"
  150.          BeginProperty Font 
  151.             Name            =   "MS Sans Serif"
  152.             Size            =   8.25
  153.             Charset         =   0
  154.             Weight          =   700
  155.             Underline       =   0   'False
  156.             Italic          =   0   'False
  157.             Strikethrough   =   0   'False
  158.          EndProperty
  159.          ForeColor       =   &H0000FF00&
  160.          Height          =   255
  161.          Left            =   195
  162.          TabIndex        =   15
  163.          Top             =   990
  164.          Width           =   2355
  165.       End
  166.       Begin VB.Label Label1 
  167.          BackColor       =   &H000000C0&
  168.          BackStyle       =   0  'Transparent
  169.          Caption         =   "Choose sector - Player 2 will start in the opposite corner"
  170.          BeginProperty Font 
  171.             Name            =   "MS Sans Serif"
  172.             Size            =   8.25
  173.             Charset         =   0
  174.             Weight          =   700
  175.             Underline       =   0   'False
  176.             Italic          =   0   'False
  177.             Strikethrough   =   0   'False
  178.          EndProperty
  179.          ForeColor       =   &H0000FF00&
  180.          Height          =   435
  181.          Left            =   180
  182.          TabIndex        =   13
  183.          Top             =   360
  184.          Width           =   2595
  185.       End
  186.    End
  187.    Begin VB.Frame fraInfo 
  188.       BackColor       =   &H00000000&
  189.       Caption         =   "Player 1 Setup"
  190.       BeginProperty Font 
  191.          Name            =   "MS Sans Serif"
  192.          Size            =   9.75
  193.          Charset         =   0
  194.          Weight          =   700
  195.          Underline       =   0   'False
  196.          Italic          =   0   'False
  197.          Strikethrough   =   0   'False
  198.       EndProperty
  199.       ForeColor       =   &H0000FFFF&
  200.       Height          =   2055
  201.       Left            =   2670
  202.       TabIndex        =   11
  203.       Top             =   135
  204.       Width           =   3015
  205.       Begin VB.TextBox txtResources 
  206.          Alignment       =   1  'Right Justify
  207.          Appearance      =   0  'Flat
  208.          BackColor       =   &H00000000&
  209.          BeginProperty Font 
  210.             Name            =   "MS Sans Serif"
  211.             Size            =   8.25
  212.             Charset         =   0
  213.             Weight          =   700
  214.             Underline       =   0   'False
  215.             Italic          =   0   'False
  216.             Strikethrough   =   0   'False
  217.          EndProperty
  218.          ForeColor       =   &H0000FF00&
  219.          Height          =   285
  220.          Left            =   1380
  221.          TabIndex        =   20
  222.          Text            =   "15"
  223.          Top             =   1170
  224.          Width           =   615
  225.       End
  226.       Begin VB.TextBox txtTroops 
  227.          Alignment       =   1  'Right Justify
  228.          Appearance      =   0  'Flat
  229.          BackColor       =   &H00000000&
  230.          BeginProperty Font 
  231.             Name            =   "MS Sans Serif"
  232.             Size            =   8.25
  233.             Charset         =   0
  234.             Weight          =   700
  235.             Underline       =   0   'False
  236.             Italic          =   0   'False
  237.             Strikethrough   =   0   'False
  238.          EndProperty
  239.